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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL Sot ba CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE as FURNISHED UNDER A LICENSE AND MAY GE USED AND corte 
ONLY IN ot NCE WITH THe TERMS OF SUCH pat SE AND WITH THE 
INCLUSION OF THE ABOVE ghd NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE oo ee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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4: 
g | 
; 
1 3 
14 3 
12 3 
14; 
15 ; 
19 
18 : N H OT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
4 3 : CORPORATION. 
8 0 1 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
9 3 g : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
0 0 ¢ ; REAR KAATATATATAEAAAKAAEAAAAAAAAARAAARAAREAAAAAARAAAARAARAEARAAEAREEAAREREREAREEEEE 
0000 5 +4 
80 3 3 3 Facility: rms32 
00 0 0 : Abstract: 
00 ee this nodule. includes the various routines to 
0000 § 3 handle required i/o stalls and the restarting 
88 3 z 3 of a thread upon i/o completion. 
00 ; 5 : Environment: 
BB § 3 star processor running starlet exec. 
09 p 8 : Author: | f lLaverdure, creation date: 4-FEB-1977 
09 0 40 : Modified By: 
90 9 4g : v03-014 RASO269 Ron Schaefer 14-Mar-1984 
00 45 ; Little per tornence boost by re-arranging some code 
8 3 44; al branches and some instruction optimization. 
45 ; Correctly probe arglist before asynch cooy en and 
000 "6 ; set -1 addr if not accessible so that RMSEXRMS can 
B66 ? ; give the user an error. 
0 i ; V03-013 DASO004 Dav 02-Feb-1984 
? : In RMSSTALL, don't vig MSLOWER_ LOCK unless sharing. 
6 é : v03-012 KPLO001 Peter Lieberwirth 13-May-1983 
: Change byte immediate MOV to word immediate 44 account 
: 3 for increased size of FAB-related ASB. 
6 : v03-011 $HZ0001 Ste Zalewski 13-Apr-1983 
3 If we enter stall _ *RNSSTALL LOCK, set a flag to prevent 
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8 : us from reenqueuing for the lock after it was granted. 
60 ; v03-010 DAS0003 David Solomon 1=Feb-1983 
61 ; Add entry point RMSCHKAST ANY the same B RMSBLKFINCHK 
86 3 for use Ze any RMS AST routine (e.g. it doesn't validate 
°7 : the ASTPRA) 
65 ; v03-009 KBTO366 Keith B. Thompson 11-0¢t-1982 
$ 68 ; Check for stack ‘it with new asb$w_sktlen field 
00 68 : v03-008 KBT0362 Keith B. Thompson 6-0ct-1982 
BS $3 ; asb$b_stksiz is now a word field 
000 71: V03-007 KBT0360 Keith 8. Thompson 6-0ct-1982 
009 ye ; Fix check before calling restore_lock 
00 74: v03-006 KBT0323 Keith B. Thompson 9-Sep-1982 
4 {2 3 Remove all SO shorten code and add new STALL_LOCK test 
4 6 ; on return from stall 
$000 78 : v03-005 JwHO0002 Jeffrey W. Horn Q7~Se nee 
0000 79 ; Remove test getinition of IMP$V fn accident Ly 
0000 80 ; left in JWHOOO1. Also fix bugs in JWHOOO1 fa RUSTALL 
0000 4 3 logic by restoring R4, RS before paleratan to caller and 
464 Ht : correcting AST handling. 
900 84 ; V03-004 KBT0217 Keith B. Thompson 23-Aug-1982 
4 8? : Reorganize psects 
$00 39 : V03-003 JwHO001 Jeffrey W. Horn 5-Aug-1982 
000 88 ; Add logic to not stall if called from within 
0000 89 ; the RM recovery unit handler, but to simply wait 
009 ay 3 in exec mode unitil 1/0 completes. 
0 3 : v03-002 kBT0080 Keith B. Thompson 9-Jul-1982 
4 + ; Add stall_lock cones point 
900 95 ; v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
0 96; Added $PCBDEF. 
8 88 oF 3 
00 4 seo 
0000 99 ; 
0000 100 
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3; system service $setef definitions 
; bit offset to bookkeeping bits 
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0 COMPLETION 16-SEP-1984 00:39:27 VAX/VMS Macro v04-00 Page 
ALL FOR 1/0 COMPLETICN ROUT ett Ti 90:33:95 CAMS SRCIRSOSTALL MAR: 1 ° d) 
»SBTTL RMSSTALL = STALL FOR I/0 COMPLETION ROUTINE 
++ 
RMS$STALL stall for 1/0 completion routine 
; RMSSTALL_LOCK alternate entry point for stall for file lock 
; RMSENBAST re-enable ASTs 


; this routine is called whenever a stream must stall for either an i/o 
; completion or for access to the shared file database (or part thereof). 


this routine first checks if the stalling stream is for a shared file 

and if so, the shared ifab is released. next it checks to see whether 

an asb (asynchronous context block) exists, and if not, the atari ing stream 

HF rer a fab function, and it allocates an asb, saving its address in the 
ab. 


if this is an asychronous rab operation, copies the argument List into 
; the asb, changes the arglist pointer to point to the saved copy, and sets 
; the status code to rms$_pending. 


if not an asychronous rab operation, sets the status code to rms$_stall. 


the routine then saves registers r4 thru r1l, the stack along 
with the return pc, and the stack size in the asb. 


finally the routine checks for running at exec ast level, 

and if so, merely returns (i.e., it exits from the ast), otherwise 
it re-enables asts, sets the status code into r0, and returns to the 
rms user possibly waiting at user's access mode). 


return sequence depends spon following registers not being 
destroyed by the return thru the change mode dispatcher to 
the rms synchronization code: 


r8 structure address 
r4 $Swait type flag (O=same rab, 1=different rab) 
r3 efn to synchronize on 


Calling sequence: 
BSBW RMSSTALL 
Input Parameters: 


rij impure area address 
r10 ifab address if r9 is an irab address 
r9 ifab/irab address 


Implicit Inputs: 
the contents of the ifab/irab and impure area. 
Output Parameters: 


This routine does not return directly to the caller, 
exiting from rms instead. return occurs via the routine 


ANEW OOD NAME WIN 9 OD NAME WIN 9 COONAN EWI CO OO NOU EW OOONOUES WO 
Be Se Oe Be Oe Oe Oe Oe Oe Oe Be Oe Oe Oe Be Oe Oe Oe Be Oe BE Os Oe Oe Oe Be Oe Oe Oe Os Oe Oe Se OF Oe Oe Os Oe Bs Oss Oe Os Oe Oe Os Oe Oe Se Se Be Se Se Sets 
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FOR 1/0 COMPLET 
RMSSTALL = STALL FO 


O COMPLETION ROUT SEP=19 RMS .SRCJRMOSTALL .MAR; 1 


rm$stallast, which is entered via the ast signaling the 
completion of the i/o being awaited by rm$stall. upon 

raturn to_the caller his entire context with the exception of 
r0 thru r3 and ap is restored. 


Implicit Outputs: 


an asb is allocated, if required, and filled in. 
the rms event flag may be cleared. 


Completion Codes: 


if returning to caller of rms, r0 will be set to 
either rms$ pendion (async) of rms$_stall (sync). 
if rms$_stall, this code is intercepted by rms 
code running in the caller's mode which awaits the 
completion of the rms operation. 


if exiting from an ast, r0 is undefined. 


Side Effects: 
rms asts are reenabled. 
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cro 


+ 
; mote: the following code is not an entry point into this routine 


first check for release of . 
point ril to pio segment so that if a free page is requred it will be 
allocated there. 


STALLAL: 
STSTPT STALLAL 
PUSHL R11 
MOVAL @#P10$GW_PIOIMPA,R11 


: must allocate an asb for a eyaties fab operation. 
; sifa 


save impure area addr 
point to process i/o segment 


5B oD 
58 00000000'9F 43 
eS FS allocate space in control page 
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MOVL 
52 58 8F A MOVZBL #ASBSC BLN_FAB/4,R2 size required 
FFE7" 30 BSBW RMSGETBLK go allocate space (rl=addr) 
58 3 0 MOVL (SP)+,R11 restore impure area addr 
3 E9 RO, ERRDME 
08 Al «(0D S90 MOVE § #ASBS$C_BID,ASB$B_B1D(R1) ; make it a real asb 
ASSUME ASBS$W_STKLEN EQ 0 
0130 8F B60 MOVW #<ASBSC_BLN_FAB-ASBSC_BLN_FIX>,-; stuff the size of the 
61 (R1) 3 save stack area 
7. Te MOVL R1,R2 3; copy address to right reg 
14 A951 00 MOVL R1,1FB$L_ASBADDR(R9) ; save the asb address 
o0B5 = = 31 BRW SYNCOP ; join sync operation code 


: couldn't allocate space for an asb 


ERRDME: RMSTBUG FTL$_ASBALLFAIL 


; save arglist for async rab operation (first stall only) 


ASYNCOP: 
MOVL 
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DPADPEDPPDPPADPD AIA BS BS BS EB ANIA AINA PNININONNONYNY 
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0 
5C 00018009 8F D0 00 #RMS$_PENDING, AP 3 async status code 
50 18 Ad 00 00 MOVL IRBSL_ARGLST(R9) ,RO ; restore arglist addr 
0 ; (note: already probed 1st 2 longwords) 
18 AD OC ag DE 9 MOVAL ASBSL ARGLST(R2), IRBSL_ARGLST(R9) ; point at temp arglist 
51 6 9A MOVZBL (RO),R1 : get arg count 
OC A2 80 7D 0 MOVQ (RO)+,ASBSL_ARGLST(R2) ; Save count and FAB/RAB addr 
51 od? 00 DECL R1 : at most 3 args are of interest 
18 1B BLEQU§ 15$ : branch if o.k. 
IFNORD #4,(RO),20$ 3; can't read remainder 
14 A2 80 09 MOVL  (RO)+,ASBSL_ARGLST+8(R2): copy ERR= addr 
1 0 DECL R1 3; count ERR= 
OA 18 BLEQU§ 15$ : all there is 
IFNORD #4, (RO) Ta 3 can't read remainder 
18 A2 $0 00 MOVL (RO), ASBSL_ARGLST+12(R2): copy SUC= addr 
— 11 15$ BRB CTXSAV 
14 A2 01 cE MNEGL #1,ASBSL_ARGLST+8(R2) ; bad ERR= addr 
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18 A2 9} rf 7 71 25$: MNEGL #1,ASBSL_ARGLST+12(R2) ; bad SUC= addr 
4 f 4 BRB CTXSAV 
7 74 RUSTALL: 
18 Ad «6001—SCéCE 7 75 MNEGL #1,IRBSL_ARGLST(R9) ; indicate RU hand stall 
45 6 SCLREF_S wimps ; clear event flag 
§ 7 CSB #PLOSV_INHAST ,a@#P10$GW_STATUS 3; check for AST disabled 
D 4 SSETAST_S #1 ; enable them if so 
96 7 SWAITFR_S #IMPSC_ASYEFN ; wait for event flag 
50 OC Ad 3¢ oF 0 MOVZWL “IRBS$L_I0S(R9) ,RO 3; get status 
54 8E D A3 1 MOVQ (SP)+,R4 3 restore R4,R5 
05 pag ¢ RSB ; go back to thread 


mm 
>>> zDD 


DVVVEWARNMWA MMH HM 4-4 


F 
F 
F 
F 
F 
F 
F 
F 
G 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


G 8 


RMOSTALL STALL FOR 1/0 COMPLETION 16-SEP-1984 00:39:27 VAX/VMS Macro v04-00 P 
v04 RMSSTALL = STALL FOR 1/0 COMPLETION ROUT Sets 7 90:33:85 FRMS SRCJRMOSTALL DMAR: 1 ts 3) 
A7 5 
\ ee ee 
Ar 2 ; entry point for stall for file lock 
v4 S' ; NOTE: This entry point assumes that R10 contains the address of the IFAB. 
Ay $36 i 
OA 94 RMSSTALL_LOCK: 
A? 95 STSTPT. STALLLOCK 
Bond 38 SSB #IFBSV_STALL_LOCK, (R10) ; Do not retake the lock once it is 
19 11 61 9 BRB STALL 
008 98 
ie 
008 01: entry point for this routine 
008 8 3 
sg i 
008 OS RMSSTALL:: 
008 8S STSTPT STALL 
008 308 
0089 09 : If sharing, lower file lock to CR. 
bons Sty 
07 08 Ad «=6—EB SCC \ BLBS IFBSB_BID(R9) ,70$ 3: branch if R9 ~>1FAB (else R10 ->IF AB) 
78 AA 05 00BD 1 TSTL IFBSL_SFSB_PTR(R10) 3; are we sharing 
OA 13 00C0 14 BEQL STALL 3; no, skip cake a Rae OUER., LOCK 
05 11 00C2 15 BRB 208 : yes, lower lock on file 
78 A9 8 00C4 1g 10$ TSTL IFBSL_SFSB_PTR(RY) 3; are we sharing? 
03 13 00C7 1 BEQL STA ; no, skip call to RMS$LOWER_LOCK 
FF34" 30 494 208: BSBW RMSLOWER_LOCK ; lower file lock to CR 
7E 54 7D boc 20 STALL: MOVQ R4,-(SP) 3: Save r4 
AS 6B 06 €0 Bact $) BBS #IMPS$V_RUH,(R11),RUSTALL; branch Vie in RU hand 
st 3: ASSUME IFBSL_ASBADDR €Q IRBSL_ASBADDR 
52 14 a9 00 b0p 5 MOVL IFBSL_ASBADDR(RY) ,R2 ; get asb address 
03 12 OOD 6 BNEQ 10$ : ontinue if we “have one 
FF24 831 Oo0e ; BRW STALLAL 3 stallat if we don't 
oc 3 
943 ? 3; check for asynchronous rab operation and if so copy arglist into the asb 
ODC F 
45 ASSUME IMPS$W_RMSSTATUS EQ 0 
0c 68 O01 €0 Ops 5 10$: BBS #IMPSV_AST,(R11),CTXSAV ; branch if at ast level 
£9 $ ASSUME IFBSV_ASYNC EQ IRB$V_ASYNC 
03 69 $3 3 E 3 BBC #IRBSV_ASYNC,(R9) ,SYNCOP; continue if synch operation 
FF52 1 eS re BRW ASYNCOP ; branch if async operation 
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VO4 RMSSTALL = STALL FOR I/O COMPLETION ROUT -SEP-1984 16: RMS.SRCIJRMOSTALL.MAR; 1 
€7 
gt 68 | : synchronous operation first stall - set stall i/o status code 
£7 rh 
E7 46 SYNCOP: RMSSUC STALL,AP 
ty 
BEE ‘3 ; save stack size, registers, and stack (including return pc) 
OEC ee 
53 14 AB SE c3 oF CTXSAV: SUBL3 SP,IMPSL_SAVED_SP(R11),R3 ; get stack size 
Fl 4; 
OF1 5; verify stack fits into asb 
a ania 
Br 38 ASSUME ASBSW_STKLEN EQ 0 
62 53 481 OOF! 60 CMPW R3,(R2) 3; does stack fit? 
44 1A OF4 61 BGTRU ERRBUG 3; branch if bad 
02 A 53 88 OF6 66 MOVW R3,ASBSW_STKSIZ(R2) 3; save the size 
5 i. © OFA 6 ADDL2 #ASBSL_REGS,R2 ; get addr of register save area 
8 56 DO OOFD 64 MOVL R6, (R2T+ 3 saver 
8 57 7D 0 65 mova R7,(R2)+ 3 save r7 & r8 
8 66 
0 : note: r9 saved as ast parameter 
82 SA 7D vQ R10, (R2)+ ; save r10 & rit 
fs. ee: ae MOVC3 R3,(SP),(R2) ; copy the stack including 
3 saved R4 & RS 


set the bit in the IFAB/IRAB which indicates that this RMS thread is 
current ty stalled. This bit is cleared within RM$STALLAST, when the 
stalled RMS thread resumes. 


ASSUME IFBSV_RMS_STALL EQ IRBSV_RMS_STALL 
SSB WIFBSV_RMS_STALL,(R9) ; set rms stall bit in IRAB/IFAB 


; if really there (just return) 
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1¢ 68 O11 £4 BBSC #IMPSV_AST,(R11),R rely URN ; clear at ast level and branch 
0D 69 23 «€0 BBS #IRBSV_ “ASYNC, (R95,30$ : branch if asynchronous i/o 
ASSUME IRBSB_EFN EQ IFBSB_EFN 
53 OB AD 9A MOVZBL (RSS _£FMCRP) AS ; set event flag on which to wait 
> on BNEQ 3; branch if non-zero (not rah/wbh) 
ASSUME IFBSV_ASYNC IRBS$V_ASYNC 
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ASSUME IFBSV_ASYNCWAIT Fo IRBSV_ASYNCWAIT 
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ohm ; show waiting on async efn 
MOVL bine # ASTER 3 and wait on it 
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at non-ast level = re-enable asts 
entry here from Swait with: 


ap = status 
r8 = rab address 

= $wait type flag 
r3 = efn 


= Sete Ge Sete Se Se Sete Ge 
7 
y 


MSENBAST:: 


04 00000000'°9F 00 €E5 BBCC #PIOSV_INHAST ,@#PIOSGW_STATUS,ENBAST ; clear ast inhibit 


branching if clear 
i. a | SET A MOVL AP,RO 3 restore status code 
04 RETU : 3 exit rms 
ENBA or: SSETAST_S #1 3 must re-enable asts 
Fl 3611 BRB “Setsts 
; Not enough space in asb for stack. The bad stack size is in R3. 
ERRBUG: 
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~SBTTL RMSSTALLAST = AST ENTRY POINT FOR I/0 COMPLETE 
++ 


RMSSTALLAST: AST entry a for 1/0 Se een bg 
RMSRAHWBHAST: For rose § ead/write behind vi 
RMSTHREADGO: With r9 already set (for multi put lering?. 


this routine is entered as a result of an ast delivery for i/o 
completion. its function is to restart pre associated 

thread which stalled as a result of calling rm$stall. the 
following processing is performed: 


1. checks for asts inhibited, and if so disables asts, 
redeclares the current ast, sets a flag to cause 
asts to be re-enabled, and exits 

2. otherwise, restores r9 (ifab or irab address) from 
the ast parameter value, checking for a valid ifab 


or irab. 

3. the asb address is retrieved and the saved 

registers (r4-r11) and stack are restored. 

4. the user structure (fab or rab) is reprobed. 

5. the indicators imp$l_saved_sp and imp$v_ast are set 

spproert ately 

6 s is a shared file the file lock 

is restored for the stream 

7. return is made to the routine that called rm$stall 
with nearly full context restored (r0-r3 and ap are 
destroyed, secondary user structures must be 
reprobed, absolute stack addresses are different) 


Calling sequence: 
entered at rm$stallast via an ast. 
alternate entry at rm$rahwbhast for read ahead/write behind via a 
alternate entry at rm$threadgo with r9 already set (for multi bul torina}. 
Input Parameters: 


astprm -=- the ifab or irab address 
(for rm$rahwbhast astprm = bdb address) 


Implicit Inputs: 

the contents of the ifab or irab and related structures. 
Output Parameters: 

r4-r11_ contents before stall 

? addr of stack nov ing same contents as before stall 

restored to return in line after call to rm$stall 

Pler3.a0 destroyed 

r0 set to contents of Ist word of i/o status block 
Implicit Outputs: 


imp$v_ast set 


welt 


STA 
RMS 


StaLtast = 


— > es te tt tt 
SS ee ee ee ee 
— SS ts tt tt 
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AST ENTRY POINT FOR 1/0 CO 'SaSEp-19B6 Soi33:87 FANS ERCTAMOS TAC Mar: 1 


; imp$l_saved_sp set appropriately for new stack 


138 


4 : 
2 ¢ i 3; Completion Codes: 
49 ; none 
4&9 : 
$38 : 3; Side Effects: 
499 ; 
$ running at ast level. 
; secondary user structures cogerre f re-probing. 
§ 3 absolute stack addresses different. 
4 _ 
5 
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entry here via ast for rah/wbh io completion 


sALIGN QUAD 
SENTRY RMSRAHWBHAST,*/“M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11>/ 


54 04 AC 09 


addr (astprm) 
07 OA AG «(06 —~—~COCE 


MOVL 4(AP) ,R4 H get bab 

BBCS § #BDB$V_AST_DCL,BDBSB_FLGS(R4),10$; set i/o done, branching 
: if no one waiting 

; change astprm to irab 


04 AC 24 A4 DO MOVL BOBSL _WAIT(R4) ,4(AP) 
20 CKAST 


BRB CHE : go join common code to restart 
3; Stalled stream 
10$: RET ; dismiss ast 
p++ 
; entry here via ast for recovery-unit io completion 
-ALIGN QUAD 
SENTRY RMSRUSTALLAST,*/“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>/ 
0083 386 330 BSBW RMSCHKAST : check for asts inhibited 


: (note this must be a bsbw and 
3 must immediately follow the entry mask.) 


RUSTALLAST: 


ST: 
SSETEF_S #IMPSC_ASYEFN 
SSB 


3; 8 vent fl 
#P1O$SV_INHAST, a@#P10$GW_STATUS id 


ete ag 
isable ASTs again 


04 
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A 
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entry here via normal i/o completion ast 


sALIGN QUAD 
SENTRY RMSSTALLAST,*/“M<R2,R3,R4,R5,R6,R7,R8B,R9I,R1I0,R11>/ 


CHECKAST: 


0098 48630 BSBW RMSCHKAST 3; check for asts inhibited 


(note this must be a bsbw and 
must immediately follow the entry mask.) 


; See if we are within RU handler, if so, handle in RU ast routine 
ADDL3 IRBSL_ARGLST(R9),#41,RO ; RU handler stall? 
BEQL RUSTACLAST 3; branch if so 
RMSTHREADGO: : 
STSTPT STALAST 


50 07 Ad C1 
E1 13 


; sets r¥ = ifab or irab addr 


SN NNN AAA AA AAA A MITT & 


FUN O ODNAUE WI 0 OONOAUE WOO 


75 ; 
76 ; clear the bit within the IRAB/IFAB indicating that this thread of RMS is 
4 3 stalled, as it no longer is, and allow it to continue 
0 79 ° 
0 80 ASSUME IFBSV_RMS_STALL EQ IRBSV_RMS_STALL 
0 Hf CSB #IFBSV_RMS_STALL,(R9) ; clear rms stall bit in IRAB/IFAB 
6 bs ASSUME IFBSL_ASBADDR €EQ IRBS$L_ASBADDR 
51 14 AY 00 § MOVL IFBSL_ASBADDR (R9),R1 3; get asb addr 
65 1 BEQL ERRASB : error if none 
ASSUME IFBSV_BUSY EQ IRBS$V_BUSY 


61 69 20 + BBC #IRBSV_BUSY,(R9),ERRASB ; branch if stream not busy 
50 O2A1 3¢ MOVZWL ASBSW_STKSIZ(R1).RO > get size of stack 
51 1¢ CO ADDL2 #ASBSC_REGS,R1 3 move to register save area 


MEW —OOo 


MOVL (R1)+,R 3; restore r 
MOVQ (R1)+,R 3; restore r7/r8 


3% Bi OD 


wowowowowowownovovno 
NO 


—DPPVUPVIVLVDPVLIVLVIVLVLIVLIVLIVIVSULULVSIVIVSIVSIUSUSVSTSVSVUSTSUSIOS TST 


: note r9 already restored 


MOVa (R1)+,R10 : restore r10/ri11 
MOVL SP,IMPS$L_SAVED_SP(R11) ; save stack entry value 


ee a at at a ot = 9 = = 4s 8 = 2 2 = = 2 2 2 = 2 = 8 2 SS 8 2 2 2 a 


OOOO 000090900 69 09 09 C9 09 09 09 09 00 09 09 0900 08 SIN SIN NSNNN 
b tetrtetete tet eb PP te ext tt tt PPPPPPrPPL ES LHKNMIVCVCVCVVVVTCC SF & X roONnns 
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RMSSTALLAS AST ENTRY POINT FOR 1/0 CO SEP=- RMS.SRCIRMOSTALL.MAR; 1 (11) ve 
if 2° Ss 1AC 4 SUBL i 14 3; allocate required size 
6—E 6 iA 5 MOVC RO,(R1), (SP) ; copy stack including return pc 
18 § ASSUME IMPSW_RMSSTATUS EQ 0 
68 02 88 ie 09 BISB2 #<l@IMP$V_AST>, (R11) ; set flag for at ast level 
186 11 ise 
4 18 : restore the file lock mode 
aE 
18 16° 
1B6 $13 ASSUME piid a oS the Oh EQ 1 
186 918 ASSUME <IRBS$C BID&1> EQ 0 
189 233 ASSUME 1FB$B_61D EQ IRB$B_BID 
08 98 AD «6©E9 «C01B6-—sé6 21 BLBC IFBSB_BID(R9) ,10$ 3 branch if irab 
1369. 37 €E€&4 QOIBA 6 § BBSC #IFBSU_STALL_LOCK,(R9) , 308 3 branch if stalled for lock and cle 
78 A9 «DS O1BE 6 TSTL FBSL_SFSB_PTR(ROS : is the file shared? 
3 ! itt ? : hy +4 : branch if not 
08 6A 9 E4 ifs 6 § 10$ BBSC #IFBSV_STALL_LOCK, (R10) ,30$ 3; branch if stalled for lock and cle 
78 AA 0 109 6 TSTL JEBSL_SFSB_PTR(R1O) 3; is the file shared? 
a 1CC 628 BEQL 0$ 3: branch if not 
FE2F* 30 ice ? 4 20$ BSBW RMSRESTORE_LOCK 3: restore previous lock mode 
101 631 ;+ 
1D1 =6 § 3 
1D1 635 ; reprobe user structure (user could have deleted it from ast or 
HH é : 3 async operation) 
1D1 6 i- 
1D1 6 
01D1 o38 ASSUME IFBS$B_MODE EQ IRB$B_MODE 
01D1 639 ASSUME <1FB$C_BID&1> EQ 1 
01D1 640 ASSUME <IRBSC_ BID&1> £0 0 
131 $¢) ASSUME 1FB$B_B1D EQ IRB$B_BID 
OE 08 AD =EB 11 ets 30$: BLBS IFBS$B_BID(R9) , CHKFAB ; branch if ifab 
18 645 ; 
He ety ; irab operation 
1D 48 ° 
1D ak: ASSUME IFBSB_MODE EQ IRB$B_MODE 
19 $20 ASSUME RABSC_BLN LE FABSC_BLN 
1D $26 IFNOWRT #RABSC_BLN, (RB) ,ERRSTRUCT, IRBS$B_MODE (R9) 
01 68 91 IDE 65 CMPB = RAB$B_B1D(R8) ,ARABSC_BID ; it must be a rab 
OE 13 ie $29 BEQL GETBACK 3: branch if so 
1E 656 ; 
HH 637 3; (it could be a forced disconnect, hence a fab) 
1E 635 : 
1E 60 ; 
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/0 COMPLETION 16-SEP-1984 00:39:27 VAX/VMS Macro v04-00 Page 16 
= AST ENTRY POINT FOR 1/0 CO ae et 9 90:33:85 RMS. SRCIRMOSTALL . MAR; 1 9 i 
° : ifab operation 
6 * 

664 CHKFAB: IFNOWRT #FABSC_BLN, (RB) ,ERRSTRUCT, IFBSB MODE (R9) 
6 CMPB ss FABSB_BID(R8),#FABSC_BID © it must be a fab 
BNEQ ERRSTRUCT t branch if ok 


PAAAASAAA AACA OAAOAAOAOAOAOOOAOO 
0909 09 C9 C9 09 09 09 09 09 SII NIN NSN NNO AAO 
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: set r0 to status from i/o status block and return to thread 


GETBACK: 
mMOva (SP)+,R4 ; restore r4 and r5 
ASSUME IRBS$L_IOS EQ IFBSL_10S 
MOVZWL IRBSL_IOS(R9) ,RO ; pick up i/o completion status 
RSB 3; restart thread 


handle errors 


: no asb found in ifab/irab or stream not busy 


ERRASB: 
RMSTBUG FTL$_NOASB 

: the user has been playing funny games with memory 

ERRSTRUCT: 
ADDL3 #ASBSL_REGS, IFBS$L_ASBADDR(R9) ,RB ; point r8 into asb 
ASSUME yr tag BLN_FAB - ASBSL_REGS> GE FABSC_BLN 
ASSUME C_BLN GE RABSC_BL 
PUSHR #*M<R1,R2,R ; save regs clobbered by mov 
MOVCS #0, ce #6 Pr ABSC _BLN, (R8) : clear out fake fab/ra 
POPR 1 Re »R3> ; restore regs 
BRB GETS ; return to thread 
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RMSCHKAST: Check for ASTs inhibited 
RMSBLKF INCHK: 
RMSCHKAST_ANY: 


This routine checks for asts inhibited, and if so disables 
asts, redeclares the current ast, clears the 

pio$v_inhast to cause asts to be reenabied when the 

active non-ast code exits, and exits. 


If asts are not disabled, sets r9 to the value of the 
ast parameter and checks that it is a valid ifab of 
irab address, and returns to the caller. 


The RMSBLKFINCHK and RMSCHKAST_ANY entry points do not validate the AST 
parameter. 


PWN OOONOUES WN" 


—) ss 2s 2 — 2 — 2s 9 2 — 3 4 — wo 


calling sequence 

BSBW RMSCHKAST 

BSBW RMSBLKF INCHK 

BSBW RMSCHKAST_ANY 
Input Parameters: 

ap ast argument List address 
Implicit Inputs: 


it is assumed that rm$chkast was called via bsbw as 
the first instruction of the ast routine. 


PIPIPIPOPIPIPIPIPIPPIPPIPOPOPPYINININIPININIDY VNIPOPIPIPINININININPININY 


Output Parameters: 


If return is made to caller, 

R9 = AST parameter, which is 
ifab or irab address for RMSCHKAST, or 
BLB address for RMSBLKFINCHK entry. 


Implicit outputs: 


WIAA EE BP BS BB EB BS BWW AWW POPOPINPINIPINWIN 


OO NAME WO ODNAU EWN OOONAUES WN" OVOONOuU 


may requeue the ast if currently inhibited. 
Condition Codes: 

none. 
Side Effects: 

asts may be disabled. 


CDOOCOCOCOCCOOCOOSCOCSCSOSCOOSOOOOCOOOSOSCSOOSOSCOSOOOOSOOOOC OOOO OC OOOO OOOOOOOOO 
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RMOSTALL STALL FOR 1/0 COMPLETION 16-SEP-1984 00:39:27 VAX/VMS Macro v04-00 p 1 
yO4-000 RMSCHKAST = CHECK FOR ASTS INHIBITED Breer b8e Sei aess> PANG Cac TanOST AcE oars 1 a 
0 1 ye? ALIGN QUAD 
59 04 aC 0 183 REE CHKAS CAP) _RO ifab/irab add 
: ab/irab address 
14 00000000 ' 9F 00 £4 if i BBSC #PlO$v RINHAST ,aAPLOSGW.STATUS, DSBLAST ; branch if inhibited 
ee a ; 
4 774 ; o.k. to recsive as 
? 76 ; check r9 ifab or frab address for validity 
4 777° 
2 ore ASSUME IFBSB_BID EQ IRB$B_BID 
OA O08 AD 91 4 780 CMPB IRB$B_BID(R9) ,MIRBSC_BID; is it an irab? 
06 13 8 781 BEQL 10$ : if so exit 
OB O08 AD 91 O22A 7 ¢ CMPB caution eta if not then it must be an ifab? 
01 \¢ 0 3 78 BNEQ 0$ ; if not an ifab then we goofed 
0 8 : 78s 10$: RSB 3 exit 
0 ‘ £36 20$: RMSTBUG FTL$_BADASTPRM ; Oopr. 
3 788 ; 
0238 789 ; asts are inhibited 
0 $ 790 ; disable asts and redeclare the current ast 
$538 99° 
0 33 138 DSBLAST 
02 794  ststPT ASTDSA 
osze 795 S$SETAST_S #0 3; disable asts 
51 8€ 05 C3 024 796 SUBLS “#5,(SP)+,R1 3; compute ast address 
$548 98 
osee 799 : (return pc - 3-byte bsw 
0248 800 ; - 2-byte entry mask) 
0548 BOD 
Bse8 08 SDCLAST Babies (R1),ASTPRM=R9; re-declare the ast 
0150 €9 bse 04 BLBC “Ro, ERRA 
04 0258 05 RET 3; and exit 
Be 
5C 4 > no space to declare an ast 
ae te 
5 11 ERRAST: RMSTBUG FTL$_CANTDOAST 
ae 
6 14 : Alternate entries. 
1? = 
6 i -ALIGN QUAD 
6 18 RMSBLKF INCHK:: ; Used in RMORELEAS. 
6 19 RMSCHKAST_ANY:: : cota “7° not validate ASTPRM. 
59 04 aC 00 6 9 MOVL 4(AP) ,R9 get arame 
C4 00000000‘ 9F 00 Fe $f BBSC #PLOSV_INHAST ,a#P10$GW_ sta US, OSBL ST he if inhibited 
5 Pe ¢ RSB 3 Return to caller if not inhibited. 
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0275 a ~END 
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Symbol table 
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$$.PSECT_EP = 9 IRBSB_EFN = 

SSARGS = IRBSB_MODE a 

SSRMSTEST = r IRBSC_BID = sh 
SSRMS_PBUGCHK = 48 IRBSL_ARGLST = 

SSRMS_TBUGCHK = IRBSL_ASBADDR = 

SSRMS _ = 4 IRBSL_BKPBITS = 

$$T1 = ° IRBS$L_10S = 

ASB$B8_B1 = IRBSV_ASYNC = 38 

ASBEC_BID = 0 IRBSV_ASYNCWAIT = 

ASBSC_BLN_FAB = 8 IRBSV_BUSY = 00 090 

ASBSC_BLN-F IX = 000000 IRBSV_RMS_STALL = 000000 R 
ASBSL_ARGCST = 4 Bye PIOSA-TRATE eeeeeene 61 
ASBSL_REGS = C PIOSG@_PIOIMPA eeeeeeee 8 §86X 1 
ASBSW_STKLEN = 4444 P1O$GW_STATUS eereeene 01 
ASBSW"STKSIZ = 00000 PIO$V_INHAST = 00000000 

ASYNC 0000039 R 01 RABS$B_BiD = 00000000 
BDBSB_FLGS = 90006 A RABS$C_BID = 00000001 
BDBSL_WAI = 00000024 RABSC” BLN = 00000044 
BDBSV_AST_DCL = 000000 $ ETURRN 4 $043 R 01 
BKP = 000000 eT lta 000026 on 01 
CHECKAST 0000017A R 01 RMS$BUG eeeeenee 01 
CHKF AB QOOOOIES R 01 RMSCHKAST 00000218 RG. 01 
CTXSAV st 444 & 01 RMSCHKAST_ANY 00000268 RG 01 
DSBLAST 00000 R 01 RMSENBAST™ 00000123 RG 01 
ENBAST Q000012F R 01 RMSGETBLK akeekeee X 8 
ERRASB Q000001F9 R 01 RMSLOWER LOCK eeeteeee 1 
ERRAST seat R 4 RMSRAHWBAAST 00000148 RG 01 
ERRBUG 0000013A R 1 RMSRESTORE_LOCK kkkeeeee 01 
ERRDME 00000032 R 01 RMSRUSTALLAST 00000160 RG 01 
ERRSTRUCT 9464 00 R 01 RMSSTALL tte RG 01 
FABSB_BID = +444 89 RMSSTALLAST 000001 ° RG 01 
FABSC_BID = 0000000 RMSSTALL_LOCK QO0Q000A7 RG 01 
FABSC- BLN = 00000050 RMSTHREADGO 00000184 RG 01 
FILS _ASBALLFAIL = FFFFFFF9 RMS$_PENDING = BE 

FILS_ _BADASTPRM = aeereers STALL = 00018001 
FTL$_CANTDOAST = FFFFFFF RUSTALL 44 6k R 01 
FTL$_NOASB = FFFFFFFS eyeroe ere 0000165 R 01 
FILS= STKTOOBIG = FFFFFFFE SETEFS_EFN = 4644 4 

GE TBACK Q00001F1 R 01 SETEF$_NARGS = 0°°00001 
1FB$8_B1D = 44 8 SETSTS Regge ee R 01 
IFBSB_EFN = 000000 TALL OOOOOCC R 01 
1FB$8_MODE = 94444 STALLAL 00000000 R 01 
IFBSC_BID = 00000008 SYNCOP QOO000E7 R 01 
IFBSL_ASBADDR = 8 14 SYSSCLREF aeeeeeee GX 4 
IFBSL_IOS = ° SYSSDCLAST aeeeneen GX 1 
IFBSL_SFSB_PT = ; 0 SYSSSETAST eeneeeee GX 01 
ireey Syne = SYSSSETEF eereeeee GX (1 
IFBSV_ASYNCWAIT = 4 SYSSWAITFR aeeeeeee GX 01 
IfB v- USY = 020 TPTSL_ASTDSA eeeeeene x 01 
IFBSV_RMS_STALL = 00 A TPTSL_STALAST aeeneeee = X 01 
IF BSV -3! TAL grock = : 7 TPTSL_STALL aeeeeeee =X 4 
IMPSC_A = ; 3 \f TPTSL_STALLAL eeeeeeee §=6X 1 
I PEE SAVED" SP = 0000001 TPTSL-STALLLOCK eeeeeree = X 01 
IMPSV_A = 1 

IMP$V_R = 

IMP$W_RMSSTATUS = 

IRB$B_B = 000 
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RMOSTALL 
Psect synopsis RMS.SRCIRMOSTALL.MAR; 1 (12) 


PSECT name Allocation PSECT No. Attributes 

» 8 s 00000 0 g.} 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 00000 62 83 ie PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 
SABSS 00000000 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL N 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 88:80:08.) 90:00:01 -¢6 
zennene processing 127 0:00: 3 7 es Se 
s 1 36 eb 7 0:00: 1.19 
Syabol table sort 0:00:01.53 00:00:03.3 
14 00:00: §-30 Se STE Fe 
22 table output 1 00:00: a; 0:00:00.34 
Psect synopsis output 00:00:00.0 00:00:00.03 
Cross-reference output 00:00:00.00 oe She ae 
Assembler run totals 689 00:00:18.26 00:00:49.0 


The working set Limit was 1650 pages. 

69965 bytes (157 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1219 non-local and 18 local symbols. 
24 source Lines were read in Pass 1, producing 16 object records in Pass 2 
9 pages of virtual memory were used to define 38 macros. 


were eee mee ee ee ee ee eee ee ee eH} 


Macro Library name Macros defined 


$255$DUA 8: RMS .OBJ ny ¥ “Te 1 17 
$522$0UA SYS.OBJ MLB; 1 4 
ESYSLIBISTARLET. MLB; 2 1% 

mitt att Libraries) 34 


1406 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 


OSHR EXE RD WRT NOVEC BYTE 
MACRO/LIS=L1IS$:RMOSTALL/OBJ=OBJ$:RMOSTALL MSRC$:RMOSTALL/UPDATE=(ENHS:RMOSTALL) +EXECML$/LIB+LIB$:RMS/LIB 
| 
} 
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